home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 07 - 1991 / 07.02 Feb 91 / 4D Graphics Source / Pen.p < prev    next >
Encoding:
Text File  |  1989-05-31  |  564 b   |  33 lines  |  [TEXT/MPS ]
  1. Unit Pen;
  2.  
  3. INTERFACE
  4.     USES    
  5.         Memtypes,Quickdraw,OSIntf,Toolintf,packintf;
  6.         
  7.     Procedure PenSet(var Xsize,Ysize,visible,Mode: Integer);
  8.     
  9. IMPLEMENTATION
  10.     Procedure PenSet(var Xsize,Ysize,visible,Mode: Integer);
  11.     
  12.     begin
  13.         PenNormal;
  14.         if (Xsize>0) then
  15.             {its OK}
  16.         else
  17.             Xsize:=1;
  18.         if (Ysize>0) then
  19.             {its OK}
  20.         else
  21.             Ysize:=Xsize;
  22.         PenSize(Xsize,Ysize);
  23.         if (visible=0) then
  24.             HidePen
  25.         else
  26.             ShowPen;
  27.         if (Mode>=0) and (Mode<8) then
  28.             Mode:=Mode+8; {correct if wrong mode range used}
  29.         if (Mode>7) and (Mode<16) then
  30.             PenMode(Mode);
  31.     end;
  32. END.
  33.